---
title: "Seguimiento a especies y cultivos"
uthor: "EM Technology"

output: 
  flexdashboard::flex_dashboard:
    logo: "C:/Users/oscar/OneDrive - Ecopetrol S.A/EM AI Technology/Logos_ByTailorBrands/EM_logo_dashboard.jpg"
    orientation: columns
    vertical_layout: fill
    theme: yeti
    social: [ "X", "facebook", "linkedin", "Instagram" ]
    source_code: embed

---
<style>
 .navbar-inverse {
    background-color: #000000;
    border-color: #006687;
}
</style>

```{r, include=FALSE, warning=FALSE}
library(flexdashboard)
library(tidyverse)
library(highcharter)
library(gt)
library(htmltools)
library(viridis)
library(raster)
library(leaflegend)
library(stringr)
library(sf)
library(tidyverse)
library(gtools)
library(plotly)
library(leaflet)
library(foreign)
library(htmltools)
library(mapview)
library(leaflet.extras)
library(rworldxtra)
library(basemaps)
library(sp)
library(maps)
library(hrbrthemes)
library(readxl)
library(RColorBrewer)
library(classInt)
library(terra)
library(fs)
library(geosphere)
library(ggmap)
library(osrm)
library(R.utils)
library(ggmap)
library(lubridate)
library(rgbif)
library(ggspatial)
library(ggplot2)
library(rnaturalearth)
library(Hmisc)
library(tidytext)
library(patchwork) #dividir la ventana grafica para mostrar varios graficos
library(knitr)

```

```{r, warning=FALSE}
# importing dataset
fire <- read.dbf(file = "../CDMB/data/tablas_shapefile_incendios/Incendios_ValleCauca.dbf")

mpio <- st_read("../CDMB/data/archivos_shapefile/MGN2018_MPIO_POLITICO/MGN_MPIO_POLITICO.shp", quiet = TRUE)

vlle <- st_read("../CDMB/data_dashboard/vlle.shp", quiet = TRUE)
shpf <- st_read("../CDMB/data_dashboard/shpf.shp", quiet = TRUE)
icon <- icons("../CDMB/graficos/Icons/fire_v5.svg", iconWidth = 20, iconHeight = 20)
cffe <- st_read("../CDMB/data_dashboard/cffe.shp", quiet = TRUE)
fire_count <- read.csv("../CDMB/data_dashboard/fire_count.csv")
fire_count_top <- read.csv("../CDMB/data_dashboard/fire_count_top.csv")
fire_vlle <- st_read("../CDMB/data_dashboard/fire_vlle.shp", quiet = TRUE)
fire1 <- st_read("../CDMB/data_dashboard/fire1.shp", quiet = TRUE)
rsl <- st_read("../CDMB/data_dashboard/rsl.shp", quiet = TRUE)
varb <- read.csv("../CDMB/data_dashboard/varb.csv")


```

```{r, warning=FALSE, message=FALSE}
# Importing second data nicho ecologico
pnts <- read_csv("../CDMB/data/ext_valores_clima_archivo_ptos/bradypus.csv")

dpto <- shapefile("../CDMB/data/archivos_shapefile/MGN2018_DPTO_POLITICO/MGN_DPTO_POLITICO.shp", quiet = TRUE)

clmt <- list.files(path = "../CDMB/data/ext_valores_clima_archivo_ptos/WORLDCLIM_COLOMBIA/WORLDCLIM_COLOMBIA",
                   full.names = TRUE, pattern = ".tif$")
```

```{r, warning=FALSE}
# Load data cafe---------------------------------------------------------------
tble <- read_excel("../CDMB/data/mapa_con_shapefile_categorico/EVAgrícola_SIPRA_AGRONET_2020.xlsx")

wrld <- st_read("../CDMB/data/area_cosecha_cafe/all_countries/all_countries.shp", quiet = TRUE)

```


Incendios
================================================================================

Column {.tabset .tabset-fade data-width=650}
--------------------------------------------------------------------------------

### Mapa de incendios Valle del Cauca

```{r, warning=FALSE, message=FALSE}

shpf %>% 
  leaflet() %>% 
  addMarkers(
    icon = icon,
    popup = sprintf(paste0('FRP: ', as.character(shpf$FRP), ' - Fecha: ', as.character(shpf$ACQ_DATE)))
  ) %>% 
  addPolygons(
    data = vlle, 
    col = 'white', 
    fillOpacity = 0.1, 
    popup = sprintf(paste0('Municipio: ', vlle$MPIO_CNMBR))
  ) %>% 
  addControl(html = "<p><strong><em>Visualización de datos de NASA-FIRE para el Valle del Cauca</em></strong></p>",
             position = "topright")%>%
  addControl(html = "<p><strong><em>Autor: EM Technology</em></strong></p>",
             position = "bottomright") %>% 
  addResetMapButton() %>% 
  addLayersControl(baseGroups = c("Satellite", "OSM","Terrain","CartoDB","Terrain.ESRI", "Toner Lite","CartoDB.Positron","Toner","heatmap de Castaña"),
                   overlayGroups = c( "Bloques", "Inventario"),
                   position = "topright",
                   options = layersControlOptions(collapsed = T)) %>%
  addProviderTiles(provider = "Esri.WorldImagery", group = "Satelital") %>% 
  addProviderTiles(providers$OpenStreetMap, group = "OSM")%>%
  addProviderTiles(providers$Esri.WorldImagery, group = "Satellite")%>%
  addMiniMap(tiles = providers$Esri.WorldImagery,toggleDisplay = TRUE, position = "bottomleft")


```

### Brillo emitido por los incendios {data-height=600}

```{r, warning=FALSE}
custom_colors <- viridis::mako(n=15)

fire_vlle %>%
  group_by(MPIO_CNMBR) %>%
  summarise(brillo= sum(BRIGHTNESS)) %>%
  arrange(desc(brillo)) %>%
  head(15) %>%
  hchart('bar', hcaes(x = MPIO_CNMBR, y = brillo,color = custom_colors)) %>%   hc_add_theme(hc_theme_google()) %>% 
  hc_tooltip(pointFormat = '<b>Brillo: </b> {point.y} <br>') %>% 
  hc_title(text = 'Brillo emitido por los incendios Valle del Cauca 2002-2014',
           style = list(fontSize = '25px', fontWeight = 'bold')) %>% 
  hc_subtitle(text = 'By EM Technology',
              style = list(fontSize = '16px')) %>% 
  hc_credits(enabled = TRUE, text = 'EM Technology')

```

Column {data-width=350}
-----------------------------------------------------------------------

### {.no-padding}

```{r, warning=FALSE}

custom_colors <- viridis::mako(n=15)

fire_vlle %>% 
  group_by(MPIO_CNMBR) %>% 
  summarise(FRP = sum(FRP)) %>% 
  arrange(desc(FRP)) %>% 
  head(15) %>% 
  hchart('column', hcaes(x = MPIO_CNMBR, y = FRP,color = custom_colors)) %>%   hc_add_theme(hc_theme_google()) %>% 
  hc_tooltip(pointFormat = '<b>kJ/m/s: </b> {point.y} <br>') %>% 
  hc_title(text = 'FRP incendios Valle del Cauca 2002 to 2014',
           style = list(fontSize = '25px', fontWeight = 'bold')) %>% 
  hc_subtitle(text = 'By kJ/m/s',
              style = list(fontSize = '16px')) %>% 
  hc_credits(enabled = TRUE, text = 'EM Technology')

```


### {.no-padding}

```{r, warning=FALSE}

# Create HTML table
# HTML table
div(style = 'height:600px; overflow-y:scroll', gt(fire1) %>% 
      tab_header(title = md('Mayores FRP desde 2002 to 2014'),
                 subtitle = md('By EM Technology')) %>% 
      opt_table_font(font = list(google_font('Chivo'), default_fonts())) %>% 
      tab_style(location = cells_column_labels(columns = everything()),
                style = list(cell_borders(sides = 'bottom', 
                                          weight = px(2)), 
                             cell_text(weight = 'bold'))) %>% 
      tab_options(table.font.size = px(12L),
                  table.border.top.style = 'none',
                  column_labels.border.bottom.width = 2,
                  table_body.border.top.style = 'none',
                  data_row.padding = px(3)))

```